"The letter B";
call charbegin('102,12,2.sc+1.5.mi,0,rh,0,h.slant-2ru);
hpen; lft8x1=round(2u+s.nrand); top8y1=round(h+s.nrand);
call"a" ucleftserif(1);
lft8x2=round(2u+s.nrand); bot8y2=round s.nrand; w8 draw 1..2; % stem
call"b" ucleftserif(2);
x3=1/2[2u,r]+s.nrand; rt9x4=round(r-u+s.nrand); y3=y1+s.nrand; y4=1/2h+s.nrand;
w0 draw 1..3; call"c" darc(3,4,w9); % upper bar line, upper counter
y5=1/2h+s.nrand; x5=(y5-y2)/(y1-y2)[x2,x1];
x6=x3+1/2u; y6=(x6-x5)/(x3-x5)[y5,y4];
rt9x7=round(r-1/2u+s.nrand); bot0y7=s.nrand; 
w0 draw 5..6; call"d" darc(6,7,w9); % middle bar line, lower counter
x8=x6; y8=y7; w0 draw 2..8. % lower bar line